From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Sep 2003 15:16:10 +0000 (+0000)
Subject: (byte-compile-log-file): Clear out byte-compile-last-warned-form.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25486
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=22a2a42efd2b81cdf74ca1d05821388c50147a0d;p=emacs.git

(byte-compile-log-file): Clear out byte-compile-last-warned-form.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 743ebea3c1e..5b3a846cd2f 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.137 $")
+(defconst byte-compile-version "$Revision: 2.138 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -975,7 +975,8 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
 	     (setq default-directory dir)
 	     (unless was-same
 	       (insert (format "Entering directory `%s'\n" default-directory))))
-	   (setq byte-compile-last-logged-file byte-compile-current-file)
+	   (setq byte-compile-last-logged-file byte-compile-current-file
+		 byte-compile-last-warned-form nil)
 	   ;; Do this after setting default-directory.
 	   (unless (eq major-mode 'compilation-mode)
 	     (compilation-mode))